<script>on mouseUpanswer return &"Voulez-vous vraiment quitter HyperCard ?" with "Non ! Merci" or OKif it = OK then type "Q" with cmdKeyend mouseUp</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>326</left>
<top>177</top>
<right>404</right>
<bottom>195</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Co├╗ts</name>
<script>on mouseupanswer "Que désirez-vous consulter ?" with "N° à surfacturation" or "Durée/Distance" or "Avantages Horaires"if it is "Durée/Distance" then showMoneyif it is "N° à surfacturation" then showMoney1if it is "Avantages Horaires" then showMoney2end mouseup</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>240</left>
<top>177</top>
<right>318</right>
<bottom>195</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>À propos</name>
<script>on mouseUpput "À propos" into theWindowif videoDepth() ≤2 then put "À proposNB" into theWindowif there is not a window theWindow thenrepeat 2play "4"end repeatpicture theWindow,resource,shadow,false,8show window theWindow at 0,-20else close Window "À propos"end mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>240</left>
<top>207</top>
<right>317</right>
<bottom>225</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Autres</name>
<script>on mouseUpif there is not a window "Autres" thenif videoDepth() = 0 thenPictoid "Autres","Divers","0,-10,480,300","C=false","K=true"else Pictoid "Autres","Divers","bigwindoidzoom", "m=10"else close window "Autres"end mouseUp</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>259</left>
<top>41</top>
<right>383</right>
<bottom>57</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Régions</name>
<script>on mouseUpshowRegend mouseUp</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>259</left>
<top>67</top>
<right>383</right>
<bottom>83</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Départements</name>
<script>on mouseUpshowDeptend mouseUp</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>259</left>
<top>93</top>
<right>383</right>
<bottom>109</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Ile-de-France</name>
<script>on mouseUpshowIdFend mouseUp</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>259</left>
<top>119</top>
<right>383</right>
<bottom>135</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Dom - Tom - Ct</name>
<script>on mouseUpshowDTomend mouseUp</script>
</part>
<part>
<id>13</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>249</left>
<top>9</top>
<right>390</right>
<bottom>32</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpanswer "Ten Digits - Version 1.1 - Novembre 1995."end mouseUp</script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>259</left>
<top>145</top>
<right>383</right>
<bottom>162</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Codes</name>
<script>on mouseUpask "Entrez les deux premiers chiffres de votre numéro de téléphone "¬&"(précédé du 1 en Ile-de-France) pour connaître votre futur préfixe et votre zone."if it ="" or the result ≠ "" then exit mouseUprepeat with i = number of chars of it down to 1if char i of it is not a number or char i of it = space then next repeatput char i of it before requestend repeatput char 1 to 3 of request into requestif request <10 thenisNoGoodexit mouseUpend ifif (request>99 and request<130) or request>169 thenisNoGoodexit mouseUpend ifif (request≥130 and request≤169) thenput char 2 to 3 of request into requestif request is not in "30,34,39,40,41,42,43,44,45,46,47,48,49,53,"¬&"55,60,64,69" thenisNoGoodexit mouseUpelse answer newCode("« Ile-de-France »","01",request," Région Ile-de-France (1) ")exit mouseUpend ifif request <100 thenif request is in "31,32,33,35,37,38,39,40,41,43,47,48,51,54,96,97,98,99"then answer newCode("« Nord-Ouest »","02",request)else if request is in "20,21,22,23,24,25,26,27,28,29,44,60,80,81,82,83,"¬&"84,85,86,87,88,89" then answer newCode("« Nord-Est »","03",request)else if request is in "42,50,66,67,68,69,70,71,72,73,74,75,76,77,78,79,"¬&"90,91,92,93,94,95" then answer newCode("« Sud-Est »","04",request)else if request is in "34,45,46,49,53,55,56,57,58,59,61,62,63,65"then answer newCode("« Sud-Ouest »","05",request)elseisNoGoodexit mouseUpend ifend ifend mouseUpfunction newCode zone,code,clé,IdFreturn IdF &clé &" + 6 chiffres" & return & "Vous serez rattaché à la"¬&" future zone : "& return & zone &"."& return & "Votre nouveau numéro "¬&"commencera par : " & return & " " & code &space& clé &&" + 6 chiffres"end newCodeon isNoGoodanswer "Les renseignements fournis ne correspondent à aucun code téléphonique "¬&"en usage en métropole." & return¬&" * * Pour les numéros spéciaux, urgences… cliquez sur le bouton «Autres».* *" & return¬& "• Sinon, reformulez votre demande, merci.•" with Annuler ¬or Autres or Recommencerif it = recommencer then mouseUpif it = Autres then send mouseUp to btn "Autres"end isNoGood</script>
</part>
<part>
<id>16</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>390</left>
<top>4</top>
<right>413</right>
<bottom>21</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>┼╕</name>
<script>on mouseUpif there is not a window "MPadLink" thenif videoDepth() <4 thenpictoid "MPadLink Pub","Pub color","0,-6,500,280","C=false","K=true"else pictoid "MPadLink Pub","Pub Color","bigwindoidzoom"else close window "MPadLink"end mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>1</id>
<text><span class="style18"> Une production</span><span class="style19"> </span><span class="style1"> </span><span class="style19">New Mint Soft </span><span class="style28">®</span><span class="style27"> </span><span class="style19">.</span><span class="style21"> </span><span class="style2">« Ten digits</span><span class="style1">®©</span><span class="style2">» est </span><span class="style7">l'outil</span><span class="style2"> destiné à celles et ceux qui utilisent quotidiennement un téléphone qu'il soit fixe (domicile, bureau), mobile ou portable, pour appeler Grand-mère ou le Président de World Company Mr Sylvestre, de passage en Corrèze.« Ten digits</span><span class="style1">®©</span><span class="style2">» n'est pas un composeur téléphonique, mais une base de données complète de tous les nouveaux indicatifs, à compter de la mise en vigueur de la nouvelle numérotation à 10 chiffres qui sera instaurée en France </span><span class="style7">le vendredi 18 Octobre 1996 à 22H59. </span><span class="style2">Dès lors, exit le 16, le (1), le 19 : tous les abonnés "ordinaires" de France, Métropolitaine ou Outre-Mer (et même Monaco!) seront accessibles directement par leur numéro à 10 chiffres.Pour connaître le nouveau numéro de votre correspondant ou d'un service, cliquez simplement un des boutons Régions, Département, Ile-de-France, Dom - Tom -Ct ou Autres.Sur la carte qui apparait, cliquez la région ou le dépar- tement de votre correspondant et vous connaîtrez dès lors les deux chiffres à rajouter devant son ancien numéro. Vous connaitrez également l'ensem- ble des indicatifs départemen- taux.Le bouton Codes est une recherche à partir des 2 premiers chiffres du numéro d'un abonné.Pour les possesseurs d'écran 9 pouces, cliquez la case zoom en haut à droite des fenêtres pour qu'elles se positionnentde telle manière que leur contenu vous soit entièrement visible.• Ce grand chambardement ne concerne pas moins de 27,5 millions d'abonnements, par conséquent, si globalement, toutes les informations fournies sont certaines, des exceptions locales sont à prévoir.Ainsi de nombreuses communes, essentiellement pour des raisons de proximité, sont reliées à un central téléphonique sur un autre département. Ce n'est pas grave si ce département est dans la même nouvelle zone que la commune. Or, il s'avère qu'environ 1</span><span class="style3">%</span><span class="style2"> des 36 000 communes dépendent de centraux qui ne seront pas dans la même zone (ex: une commune du nord de l'Ain (Zone 04) qui est rattachée à Macon (Saône et Loire - Zone 03).France Telecom traitera au cas par cas les anomalies: — soit rattacher lesdites communes à leur central logique, et donc changer complètement les numéros de milliers d'abonnés ; — soit les maintenir dans des zones qui ne leur corres- pondent pas géographiquement.D'ou peut-être autant d'exceptions à un schéma qui se veut parfait puisqu'il est censé couvrir les besoins de numéros jusqu"en 2050 !De toute façon, chaque abonné recevra un courrier personnel lui indiquant son nouveau numéro, quelques semaines à l'avance.• « Ten digits</span><span class="style1">®©</span><span class="style2">» permet au possesseurs d'écran 9 pouces noir & blanc et à ceux disposant d'un Classic couleur, tous trop souvent oubliés, d'avoir un accès complet à cette banque de données ( La Corse ne vous semblera plus si proche de Punta Arenas !).- (Voir plus haut.)</span><span class="style7">• </span><span class="style11">Mise en garde</span><span class="style7">:</span><span class="style2">« Ten digits</span><span class="style1">®©</span><span class="style2">» est vacciné contre le virus "MerryXMas". Par conséquent, il est possible que des anti-virus vous indiquent que « Ten digits</span><span class="style1">®©</span><span class="style2">» est vérolé. Il n'en est rien. Le défaut de certains anti-virus mal programmés est de ne rechercher que l'occurrence "MerryXMas", et si elle est présente, de vous dire que le programme contient le virus. En conséquence, nous ne saurions trop vous recommander d'utiliser l'antivirus« Hyperguard™ », freeware spécialement dédié à la recherche et à la destruction du virus "MerryXMas". • « Ten digits</span><span class="style1">®©</span><span class="style2">», créé avec Hypercard™ 2.2 est </span><span class="style7">totalement</span><span class="style2"> compatible Hypercard™ 2.0 minimum où Hypercard Player™.De plus, cette version 1.1 est 120% compatible avec tous les écrans, qu'ils soient couleur ou noir & blanc et quelle que soit leur taille.</span><span class="style7"></span><span class="style11">Historique</span><span class="style7">:</span><span class="style4">Version 1.0</span><span class="style2">:- première diffusion publique.</span><span class="style7"></span><span class="style4">Version 1.1</span><span class="style2">:- Modifications de quelques lignes de script</span><span class="style3">.</span><span class="style2">- Ajout du coût des communica- tions en fonction de la distance et et de la durée.- Optimisation de la fonction non-documentée.• </span><span class="style7">Avertissement important et Diffusion:</span><span class="style2">• Malgré son innocuité théorique, utilisez «</span><span class="style7"> Ten digits ®</span><span class="style1">©</span><span class="style7"> </span><span class="style2">» à vos propres risques.New Mint Soft® et ses auteurs ne sauraient être tenus pour responsable, à un quelconque degré e</span><span class="style2">t en aucun cas, ni des conséquences de l'inst</span><span class="style29">a</span><span class="style30">ll</span><span class="style2">ation ou utilisation de leurs programmes, ni de l'usage qui po</span><span class="style2">ur</span><span class="style2">rait en être fait.</span><span class="style11"></span><span class="style7">•</span><span class="style7"> L</span><span class="style2">es noms et marques cités sont la propriété de leurs ayants droit respectifs.• « Ten digits ®© » est en diffusion et copie libres (freeware) mais reste la propriété de ses auteurs et de New Mint Soft®.• La diffusion doit-être gratuite, les copies non modifiées tant au niveau des scripts, des ressources que du contenu et accompagnées du</span><span class="style2"> présent fichier "Ne pas me lire". • Toute utilisation com</span><span class="style2">merciale d'« Ten digits ®© » est soumise à licence et accord préalable écrit des auteurs.</span><span class="style7"></span><span class="style11">Support technique</span><span class="style7">:</span><span class="style2">Si vous rencontrez un où des messages d'erreur, merci infiniment de nous les rapporter en précisant si possible les "manipulations" qui ont précédé, ainsi que votre configuration logicielle (version d' Hypercard™ utilisée). Précisez bien si vous utilisez une version Player™ ainsi que le numéro de version de votre application Hypercard™.</span><span class="style7"></span><span class="style11">Renseignement(s)</span><span class="style2">, </span><span class="style11">rapport(s) de bogue(s) et</span><span class="style2"> </span><span class="style11">suggestion(s)</span><span class="style7">: </span><span class="style2">- Adresse éléctronique: rMinotti@MPadLink.TechLink.fr- Adresse postale:Roberto Minotti2, rue de la République69190 Saint-Fons. F.</span><span class="style25">Les commandes et fonctions</span><span class="style26"> </span><span class="style25">externes utilisées</span><span class="style26">:</span><span class="style23"></span><span class="style2">• Pictoid 1.3 XCMD </span><span class="style3">©</span><span class="style2"> Frederic Rinaldi[*] 1989-1994.</span><span class="style3">• GetMode 1.4 XFCN, © Frederic Rinaldi, 1990…1994.</span><span class="style2">[*] Le seigneur, que dis-je, le Zeus des externes.(Message personnel: Rinaldi, laisse tomber le Newton, reviens aux externes et pas uniquement pour PPC! Merci.)• AddColor XCMD. </span><span class="style3">©</span><span class="style2"> Apple Computer Inc. 1991-1993.</span><span class="style3">• </span><span class="style2">About XCMD. - Auteur inconnu - Non référencée.• SplashDialog XCMD. - Auteur inconnu - Non référencée.</span><span class="style11">Mention spéciale</span><span class="style4"> </span><span class="style11">avec louanges</span><span class="style2"> à France Telecom pour nous avoir reçu sans nous faire attendre des heures,sans nous obliger à revenir plusieurs fois, et surtout sans poser des milliards de questions. Et pour nous avoir communiqué les informations demandées avec gentillesse et spontanéité, sans jamais rechigner...</span><span class="style11">Remerciements</span><span class="style7">:</span><span class="style2">à tous les ß-testeurs du serveur MPadLink pour leurs tests et suggestions.</span><span class="style11">Sources</span><span class="style7">:</span><span class="style2">• 50 </span><span class="style22">[</span><span class="style2"> 58,1 selon l'INED - Population & Sociétés N° 304 - Août 1995 </span><span class="style22">]</span><span class="style2"> Millions de consommateurs. N° 288 - Octobre 1995.• Supplément Pleine Ligne N° 5 - Septembre 1995 - Ed. France Telecom.• Septimer Quo Vadis™ 1995 - 1996.</span></text>
</content>
<name></name>
<script>on idleif not the suspended thenif the userLevel = 1 then exit idlestackConfigend ifend idleon CommandKeyDown aKeyglobal WListif aKey = W thenif WList = "" then pass CommandKeyDownelseif there is a window (item 1 of WList) then close window (item 1 of WList)elsedelete item 1 of WListdo the Paramsexit CommandKeyDownend ifend ifelse pass CommandKeyDownend CommandKeyDownglobal WListon KeyDown aKey -- 3 = Enter ; 13 = Returnif WList ≠ "" then pass KeyDownif charToNum(aKey) is in "3 ,(13)" thenset hilite of cd btn "Quitter" to truewait 35set hilite of cd btn "Quitter" to falsesend mouseUp to cd btn "Quitter"else pass KeyDownend KeyDownon mouseDownInPictureclose window param(1)end mouseDownInPicture≈∞≈∞≈∞≈∞≈∞≈∞≈∞≈∞ Pictoid handlers + ≈∞≈∞≈∞≈∞≈∞≈∞on openPictoid WNameglobal WListput WName & "," before WListend openPictoidon ClosePictoid WNameglobal WListrepeat with i = number of items of WList down to 1if item i of WList = WName thendelete item i of WListexit repeatend ifend repeatend closePictoidon mouseDownInPictoid WNameif WName = "MPadLink Pub" thenclose window Wnameexit mouseDownInPictoidelse global WListset cursor to watchif item 1 of WList ≠ WName thenrepeat with i = 2 to number of items of WListif item i of WList = WName thendelete item i of WListexit repeatend ifend repeatput WName & "," before WListend ifend mouseDownInPictoidfunction dept numbDept,nom,code,cléreturn numbDept &" - " &nom& "." &return&"Code téléphonique départemental : " & code &return¬&return& "Numéro abonné à faire précéder du " & cléend deptfunction Reg nom,zone,cléreturn "Région "&nom&return &"Elle sera intégrée à la nouvelle zone téléphonique «"¬&zone&"»." & return & "Faire précéder les 8 chiffres du "& clé &"."end Regon MouseUpInPictoid WName,WId,ShpType,S,clkLoc,same -- S = ShpNbif not same thenbeep 2answer "Erreur 220 volts - Utilisateur inadvertant ou fatigué."&return&"Le curseur a changé de zone géographique lors du clic."¬& return &"Impossible d'accéder à votre requête." & return ¬&"Veuillez recommencer."exit MouseUpInPictoidend ifset numberFormat to "00"if S = 0 and WName ≠ "Le trésor" then exit MouseUpInPictoidif WName is "Régions" thenif S is "1" then answer Reg("Bretagne :","Nord-Ouest","02")if S is "2" then answer Reg("Basse-Normandie :","Nord-Ouest","02")if S is "3" then answer Reg("Haute-Normandie :","Nord-Ouest","02")if S is "4" then answer Reg("Nord-Pas-de Calais :","Nord-Est","03")if S is "5" then answer Reg("Picardie :","Nord-Est","03")if S is "6" then answer Reg("Champagne-Ardennes :","Nord-Est","03")if S is "7" then answer Reg("Lorraine :","Nord-Est","03")if S is "8" then answer Reg("Alsace :","Nord-Est","03")if S is "9" then answer Reg("Ile-de-France :","Ile-de-France","01")if S is "10" then answer Reg("Centre :","Nord-Ouest","02")if S is "11" then answer Reg("Pays de Loire :","Nord-Ouest","02")if S is "12" then answer Reg("Poitou-Charentes :","Sud-Ouest","05")if S is "13" then answer Reg("Limousin :","Sud-Ouest","05")if S is "14" then answer Reg("Auvergne :","Sud-Est","04")if S is "15" then answer Reg("Bourgogne :","Nord-Est","03")if S is "16" then answer Reg("Rhône-Alpes :","Sud-Est","04")if S is "17" then answer Reg("Franche-Comté :","Nord-Est","03")if S is "18" then answer Reg("Aquitaine :","Sud-Ouest","05")if S is "19" then answer Reg("Midi-Pyrénées :","Sud-Ouest","05")if S is "20" then answer Reg("Languedoc-Roussillon :","Sud-Est","04")if S is "21" then answer Reg("Provence-Alpes-Côte d'Azur :","Sud-Est","04")if S is "22" then answer Reg("Corse :","Sud-Est","04")if S is "23" then answer "Etes-vous vraiment certain que je suis une région ?" with "Succeptible" or "avec ça !!"end ifif WName is "Départements" thenif S is "1" then answer dept(14,Calvados,31,02)if S is "2" then answer dept(70,"Haute-Saône",84,03)if S is "3" then answer dept(53,Mayenne,43,02)if S is "4" then answer dept(26,Drôme,75,04)if S is "5" then answer dept(45,Loire,38,02)if S is "6" then answer dept(18,Cher,48,02)if S is "7" then answer dept(04,"Alpes de Haute-Provence",92,04)if S is "8" then answer dept(12,Aveyron,65,05)if S is "9" then answer dept(86,Vienne,49,05)if S is "10" then answer dept(68,"Haut-Rhin",89,03)if S is "11" then answer "2A - Corse-du-sud."&return&"2B - Haute-Corse."&return ¬&"Code téléphonique départemental: 95"&return&return& "Numéro abonné à faire précéder du 04."if S is "12" then answer dept(59,Nord,"20 - 27 ou 28",03)if S is "13" then answer dept(62,"Pas-de-Calais",21,03)if S is "14" then answer dept(80,Somme,22,03)if S is "15" then answer dept(76,"Seine-Martime",35,02)if S is "16" then answer dept(27,Eure,32,02)if S is "17" then answer dept(60,Oise,44,03)if S is "18" then answer dept(02,Aisne,23,03)if S is "19" then answer dept(61,Orne,33,02)if S is "20" then answer dept(28,"Eure-et-Loir",37,02)if S is "21" then answer dept(51,Marne,26,03)if S is "22" then answer dept(55,Meuse,29,03)if S is "23" then answer dept(54,"Meurthe-et-Moselle","8…",03)if S is "24" then answer dept(67,"Bas-Rhin",88,03)if S is "25" then answer dept(25,Doubs,81,03)if S is "26" then answer dept(35,"Ille-et-Vilaine",99,02)if S is "27" then answer dept(22,"Côtes-d'Armor",96,02)if S is "28" then answer dept(29,Finistère,98,02)if S is "29" then answer dept(56,Morbihan,97,02)if S is "30" then answer dept(72,Sarthe,43,02)if S is "31" then answer dept(41,"Loir-et-Cher",54,02)if S is "32" then answer dept(89,Yonne,86,03)if S is "33" then answer dept(49,"Maine-et-Loire",41,02)if S is "34" then answer dept(37,"Indre-et-Loire",47,02)if S is "35" then answer dept(79,"Deux-Sèvres",49,05)if S is "36" then answer dept(39,Jura,84,03)if S is "37" then answer dept(58,Nièvre,86,03)if S is "38" then answer dept(03,Allier,70,04)if S is "39" then answer dept(01,Ain,"85 - 7… - 79 - 74 ou 50",04)if S is "40" then answer dept(23,Creuse,55,05)if S is "41" then answer dept(16,Charente,45,05)if S is "42" then answer dept(17,"Charente-Maritime",46,05)if S is "43" then answer dept(33,Gironde,"56 - 57",05)if S is "44" then answer dept(24,Dordogne,53,05)if S is "45" then answer dept(47,"Lot-et-Garonne",53,05)if S is "46" then answer dept(19,Corrèze,55,05)if S is "47" then answer dept(87,"Haute-Vienne",55,05)if S is "48" then answer dept(52,"Haute-Marne",25,03)if S is "49" then answer dept(15,Cantal,71,04)if S is "50" then answer dept(63,"Puy-de-Dôme",73,04)if S is "51" then answer dept(40,Landes,58,05)if S is "52" then answer dept(64,"Pyrénées-Atlantiques",59,05)if S is "53" then answer dept(65,"Hautes-Pyrénées",62,05)if S is "54" then answer dept(06,"Alpes-Maritimes",92,04)if S is "55" then answer dept(43,"Haute-Loire",71,04)if S is "56" then answer dept(32,Gers,62,05)if S is "57" then answer dept(31,"Haute-Garonne","61 - 62",05)if S is "58" then answer dept(81,Tarn,63,05)if S is "59" then answer dept(07,Ardèche,75,04)if S is "60" then answer dept(38,Isère,"7… - 74 ou 76",04)if S is "61" then answer dept(48,Lozère,66,04)if S is "62" then answer dept(30,Gard,66,04)if S is "63" then answer dept(66,"Pyrénées-Orientales",68,04)if S is "64" then answer dept(34,Hérault,67,04)if S is "65" then answer dept(09,Ariège,61,05)if S is "66" then answer dept(11,Aude,68,04)if S is "67" then answer dept(13,"Bouches-du-Rhône","90 - 91 ou 42",04)if S is "68" then answer dept(83,Var,94,04)if S is "69" then answer dept(05,"Hautes-Alpes",92,04)if S is "70" then answer dept(71,"Saône-et-Loire",85,03)if S is "71" then answer dept(90,"Territoire de Belfort",84,03)if S is "72" then answer dept(88,Vosges,29,03)if S is "73" then answer dept(21,"Côte-d'Or",80,03)if S is "74" then showIdFif S is "75" then answer dept(77,"Seine-et-Marne","6…",01)if S is "76" then answer dept(84,Vaucluse,90,03)if S is "77" then answer dept(46,Lot,65,05)if S is "78" then answer dept(85,Vendée,51,02)if S is "79" then answer dept(10,Aube,25,03)if S is "80" then answer dept(08,Ardennes,24,03)if S is "81" then answer dept(57,Moselle,"8…",03)if S is "82" then answer dept(44,"Loire-Atlantique","40 - 51",02)if S is "83" then answer dept(36,Indre,54,02)if S is "84" then answer dept(69,Rhône,"72 - 74 ou 78",04)if S is "85" then answer dept(74,"Haute-Savoie",50,04)if S is "86" then answer dept(73,Savoie,79,04)if S is "87" then answer dept(82,"Tarn-et-Garonne",63,05)if S is "90" then answer dept(50,Manche,33,02)if S is "91" then answer dept(42,Loire,77,04)if S is "92" then answer "Etes-vous certain que je suis un département ???" with "Succeptible" or "avec ça !!"if S is "93" thenif there is a window "Au Secours !" then close window "Au Secours !"Pictoid "Au Secours !","Aide", "bigwindoidzoom", "m=10"end ifif S is "88" thenrepeat 4Play "2"end repeatanswer "Bien tenté... mais le trésor n'est pas là !"repeat 4Play "2"end repeatend ifif S is "89" thenrepeat 4Play "2"end repeatanswer "Persévérez... en allant voir plus au large !"repeat 4Play "2"end repeatend ifend ifif WName is "Ile-de-France" thenif S is "1" then answer dept(95,"Val-d'Oise","3…",01)if S is "2" then answer dept(78,Yvelines,"3…",01)if S is "3" then answer dept(91,Essonne,"6…",01)if S is "4" then answer dept(93,"Seine-St-Denis","4…",01)if S is "5" then answer dept(94,"Val-de-Marne","4…",01)if S is "6" then answer dept(92,"Hauts-de-Seine","4…",01)if S is "7" then answer dept(75,Paris,"4… - 5…",01)if S is "8" then answer "Etes-vous certain que je suis un département ???" with "Succeptible" or "avec ça !!"end ifif WName is "Outre-Mer" thenif S is "1" then answer "Polynésie française."&return&"Code téléphonique territorial: 689"¬&return&&return& "Numéro abonné à faire précéder du 06 89."if S is "2" then answer "Nouvelle Calédonie."&return&"Code téléphonique territorial: 687"¬&return&&return& "Numéro abonné à faire précéder du 06 87."if S is "3" then answer "97-5 - St-Pierre & Miquelon."&return&"Code téléphonique territorial: 508"¬&return&&return& "Numéro abonné à faire précéder du 05 08."if S is "4" then answer "97-6 - Mayotte."&return&"Code téléphonique territorial: 269"¬&return&&return& "Numéro abonné à faire précéder du 02 69."if S is "5" then answer dept("97-1",Guadeloupe,590," 05 90")if S is "6" then answer dept("97-2",Martinique,596," 05 96")if S is "7" then answer dept("97-3","Guyane française",594," 05 94")if S is "8" then answer dept("97-4",Réunion,262," 02 62")if S is "10" then answer "Wallis & Futuna."&return&"Code téléphonique territorial: 681"¬&return&&return& "Numéro abonné à faire précéder du 06 81."if S is "9" thenrepeat 6Play "2"end repeatanswer "Bravo ! Le trésor est là, mais il vous faut prendre le bateau ou l'avion pour en prendre possession !" with "J'y cours !!"showLetrésorrepeat 6Play "2"end repeatplay "3"end ifend ifif WName is "Le trésor" thenplay "3"answer "Passerais tu ta vie à me chercher par delà les montagnes et les océans que tu ne me trouverais pas."&return& "Je suis le fruit de ton délirium trémens." with "Mangaaaaaa"close window "Le trésor"play "3"end ifif WName is "Durée/Distance" thenif S = 1 then showMoney2end ifend MouseUpInPictoidon showIdFset cursor to watchif there is not a window "Ile-de-France" thenPictoid "Ile-de-France","IdF", "bigwindoidzoom", "m=10"else close window "Ile-de-France"end showIdFon showRegset cursor to watchif there is not a window "Régions" thenif videoDepth() = 0 then Pictoid "Régions","RC","0,0,300,300","C=false","K=true"else Pictoid "Régions","RC", "bigwindoidzoom", "m=10"else close window "Régions"end showRegon showDeptset cursor to watchif there is not a window "Départements" thenif videoDepth() = 0 thenPictoid "Départements","DC","0,0,300,300","C=false","K=true"else Pictoid "Départements","DC", "bigwindoidzoom", "m=10"else close window "Départements"end showDepton showDTomset cursor to watchif there is not a window "Outre-mer" thenif videoDepth() = 0 thenPictoid "Outre-mer","Outre-mer","0,0,420,300","C=false","K=true"else Pictoid "Outre-mer","Outre-mer","bigwindoidzoom", "m=10"else close window "Outre-mer"end showDTomon showLetrésorif there is not a window "Le trésor" thenif the optionKey is down then Pictoid "Le trésor","Trésor", "bigwindoidzoom"else Pictoid "Le trésor","Trésor", "Rect","0,-20"else close window "Le trésor"end showLetrésoron showMoneyset cursor to watchif there is not a window "Durée/Distance" thenif videoDepth() = 0 thenPictoid "Durée/Distance","Durée/Distance","0,-10,512,300","C=false","K=true"else Pictoid "Durée/Distance","Durée/Distance","bigwindoidzoom"else close window "Durée/Distance"end showMoneyon showMoney1set cursor to watchif there is not a window "Numéros à surfacturation" thenif videoDepth() = 0 thenPictoid "Numéros à surfacturation","Surfacturation","0,-10"else Pictoid "Numéros à surfacturation","Surfacturation","bigwindoidzoom"else close window "Numéros à surfacturation"end showMoney1on showMoney2set cursor to watchif there is not a window "Modulations horaires" thenif videoDepth() < 4 thenPictoid "Modulations horaires","Avantages horaires NB","0,-10"elsePictoid "Modulations horaires","Avantages horaires","bigwindoidzoom", "m=10"end ifelse close window "Modulations horaires"end showMoney2</script>
